home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Leser 19 / Amiga Plus Leser CD 19.iso / Games / Tamar / talesoftamar_upd / ToT-Install < prev    next >
Text File  |  2002-11-13  |  9KB  |  254 lines
  1. ;$VER: ToT-Install (2002-07-12)
  2. ;Sebastian Huebner <cyco@baud.de>
  3.  
  4. (onerror (P_CleanUp))
  5.  
  6. (procedure P_CleanUp
  7.   (run "Goodies/SoundQuit.exe" (safe))
  8. )
  9.  
  10. ;check for installer version >=44 (OS3.5))
  11. (set #instver (/ @installer-version 65536))
  12. (if (>= #instver 44)
  13.     (
  14.       (effect "lower_right" "radial" $660000 $000000)
  15.       (showmedia "symbol" "Goodies/Title.iff" "upper_left" "none" 0)
  16.     )
  17. )
  18. ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  19. ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  20. ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  21.  
  22.  
  23. (set #totversion "Client 0.46 R1")
  24. (set #totdirname "TalesOfTamar" )
  25. (set #totassign  "ToT" )
  26. (set #deletedatafiles "(DEMO1_TCPIPReq.dat|DEMO1_TCPIPReq.RAWB|Kundschafter.RAWB)")
  27. (run "run >NIL: Goodies/Sound.exe" (safe))
  28.  
  29. ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  30. ;~~~~~~~~~~~~~~~~~~alten Pfad suchen~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  31. ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  32. ; altes assign vorhanden? wenn nicht: "games:" vorhanden?
  33. (set #oldplace (getassign #totassign))
  34. (set #games    (getassign "games"   ))
  35. (if (and (<> "" #oldplace) (exists #oldplace))
  36.     ( (set #oldassignfound 1) (set @default-dest (pathonly #oldplace)) )
  37.     (if (and (<> "" #games) (exists #games))
  38.         (set @default-dest "Games:")
  39.     )
  40. )
  41.  
  42.  
  43. (complete 0)
  44.  
  45.  
  46. ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  47. ;~~~~~~~~~~~~~~~~~~~~~~~Texte~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  48. ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  49.  
  50. ;~~~~~~~~~~~~~~~~~~Englische Texte~~~~~~~~~~~~~~~~~~
  51. (set #introduction
  52.   (cat "\nWelcome to the Installation of\n\nT A L E S\nO F\nT A M A R\n\n\n\nVersion: "
  53.        #totversion "\n\nhttp://www.tamar.net\nMartin Wolf <eternity@pride.de>"))
  54.  
  55.   (set #licensefile "ToT-License.guide")
  56.   (set #license-request
  57.     (cat "\n\n"
  58.          "Please read the\n"
  59.          "LICENSE AGREEMENT\n"
  60.          "in the window above carefully.\n"
  61.          "\n\n\n"
  62.          "Do you accept all of the license terms and\n"
  63.          "want to proceed with the installation,\n"
  64.          "or\n"
  65.          "do you reject at least one of the license terms\n"
  66.          "and want to abort the installation?")
  67.   )
  68.   (set #license-request-old
  69.     (cat "\n"
  70.          "You are using an outdated version " #instver " of the installer (current: 44.10).\n"
  71.          "Therefore the LICENSE AGREEMENT can't be displayed here directly.\n"
  72.          "\n\n"
  73.          "Please read \"" #licensefile "\" first,\n"
  74.          "before you proceed with the installation.\n"
  75.          "To do this you can abort the installation now\n"
  76.          "and restart it after reading the agreement."
  77.          "\n\n\n"
  78.          "Have you read the license agreement, agree to it\n"
  79.          "and would like to proceed with the installation?")
  80.   )
  81.  
  82.  
  83. (set #ask-path (cat "Where should the directory \"" #totdirname "\" be created?\n"
  84.                     "An existing directory will be used."
  85.                ))
  86. (set #ask-path-help (cat "A new directory \"" #totdirname
  87.                          "\" will be created or an existing one will be used."))
  88. (set #ask-assign (cat "Should the assign \"" #totassign ":\" be added to your "
  89.                       "\"S:user-startup\"?"))
  90. (set #ask-assign-help (cat "The assign \"" #totassign ":\" can be added to your "
  91.                            "\"S:user-startup\".\n\n"
  92.                            "Because it is needed by " @app-name ", "
  93.                            "you should really do this. Otherwise you have to "
  94.                            "perform the addition by hand:\n\n   "
  95.                            ))
  96. (set #fileatplace (cat "Unable to create new directory:"
  97.                        "A file exists at that position ") )
  98.  
  99. (set #goodbye "\n\n\n\nGoodbye and have fun with Tales of Tamar!")
  100.  
  101.  
  102. ;~~~~~~~~~~~~~~~~~~Deutsche Texte~~~~~~~~~~~~~~~~~~
  103. (if (= @language "deutsch")
  104.  (
  105.   (set #introduction
  106.     (cat "\nWillkommen zur Installation von\n\nT A L E S\nO F\nT A M A R\n\n\n\nVersion: "
  107.          #totversion "\n\nhttp://www.tamar.net\nMartin Wolf <eternity@pride.de>"))
  108.  
  109.   (set #licensefile "ToT-Lizenz.guide")
  110.   (set #license-request
  111.     (cat "\n\n"
  112.          "Bitte lesen Sie den\n"
  113.          "LIZENZVERTRAG\n"
  114.          "im obigen Fenster aufmerksam durch.\n"
  115.          "\n\n\n"
  116.          "Möchten Sie dem Vertrag in vollem Umfang zustimmen\n"
  117.          "und die Installation fortsetzen,\n"
  118.          "oder\n"
  119.          "möchten Sie den Vertrag ablehnen\n"
  120.          "und die Installation abbrechen?")
  121.   )
  122.   (set #license-request-old
  123.     (cat "\n"
  124.          "Sie benutzen eine veraltete Version " #instver " des Installers (aktuell: 44.10).\n"
  125.          "Deshalb kann der LIZENZVERTRAG hier leider nicht direkt angezeigt werden.\n"
  126.          "\n\n"
  127.          "Bitte lesen Sie erst \"" #licensefile "\",\n"
  128.          "bevor Sie die Installation durchführen.\n"
  129.          "Dazu können Sie die Installation an diesem Punkt unterbrechen\n"
  130.          "und nach dem Lesen des Vertrages neu starten."
  131.          "\n\n\n"
  132.          "Haben Sie den Vertrag gelesen, stimmen ihm in vollem Umfang zu\n"
  133.          "und möchten die Installation fortsetzen?")
  134.   )
  135.  
  136.  
  137.  
  138.   (set #ask-path (cat "Wo soll das Verzeichnis \"" #totdirname "\" angelegt werden?\n"
  139.                       "Ein schon existierendes Verzeichnis wird weiter benutzt."
  140.                  ))
  141.   (set #ask-path-help (cat "A neues Verzeichnis \"" #totdirname
  142.                            "\" wird erstellt oder ein bereits vorhandenes weiter benutzt."))
  143.   (set #ask-assign (cat "Soll die Zuweisung \"" #totassign ":\" zu Ihrer "
  144.                       "\"S:user-startup\" hinzugefügt werden?"))
  145.   (set #ask-assign-help (cat "Die Zuweisung \"" #totassign ":\" kann zu Ihrer "
  146.                            "\"S:user-startup\" hinzugefügt werden.\n\n"
  147.                            "Da die Zuweisung von " @app-name " benötigt wird, "
  148.                            "sollten Sie die Ergänzung zulassen, andernfalls müssen sie "
  149.                            "diese per Hand durchführen:\n\n   "
  150.                            ))
  151.   (set #fileatplace (cat "Kann neues Verzeichnis nicht erstellen:"
  152.                          "Eine Datei befindet sich an der Position ") )
  153.  
  154.   (set #goodbye "\n\n\n\nViel Spaß mit Tales of Tamar!")
  155.  )
  156. )
  157.  
  158. ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  159. ;~~~~~~~~~~~~~~~~~~Installation~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  160. ;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  161.  
  162. (complete 1)
  163.  
  164. ; introduction
  165. (message #introduction (all))
  166.  
  167.  
  168. (complete 2)
  169.  
  170.  
  171. ; show license agreement
  172. (if (>= #instver 44)
  173.     (
  174.       (showmedia 'license' #licensefile 'upper_right' 'medium' 1 'wordwrap')
  175.       (message #license-request (all))
  176.       (closemedia license)
  177.     )
  178.     (
  179.       ; installer is too old to show license directly
  180.       (message #license-request-old (all))
  181.     )
  182. )
  183.  
  184.  
  185. (complete 10)
  186.  
  187.  
  188. ;choose user level
  189. (welcome)
  190.  
  191.  
  192. (complete 20)
  193.  
  194.  
  195. ; wo installieren?
  196. (set #totpath (askdir (prompt #ask-path) (help #ask-path-help)
  197.                       (default @default-dest))
  198. )
  199.  
  200. ; tot-verzeichnis anhaengen
  201. (set #totpath (tackon #totpath #totdirname))
  202.  
  203. (complete 30)
  204.  
  205. ; platz schon belegt oder alte schublade vorhanden?
  206. (set #checkplace (exists #totpath))
  207. (if (= #checkplace 1)
  208.     (abort (cat #fileatplace #totpath))
  209. )
  210.  
  211. (if (>= #instver 44)
  212.     (
  213.       (closemedia symbol)
  214.       (showmedia "symbol" "Goodies/Bild1.iff" "upper_left" "none" 0)
  215.     )
  216. )
  217.  
  218. (complete 50)
  219.  
  220. ; evtl. alte files loeschen, die nicht mit neuen ueberschrieben werden
  221. (if (= 2 #checkplace)
  222.     (if #deletedatafiles
  223.         (foreach (tackon #totpath "data")
  224.                  #deletedatafiles
  225.                  (delete (tackon (tackon #totpath "data") @each-name)
  226.                          (prompt "") (help ""))
  227.         )
  228.     )
  229. )
  230.  
  231. (complete 70)
  232.  
  233. ; alles ausser #?install#? kopieren (wenn noetig: neues Verzeichnis)
  234. (copyfiles (prompt "") (help "") (source "") (dest #totpath)
  235.            (pattern "~(#?install#?)") (infos) (noposition)
  236. )
  237.  
  238. (complete 90)
  239.  
  240. ; assign in die user-startup und auch gleich aktivieren
  241. (set #assigntext (cat "Assign \"" #totassign ":\" \"" #totpath "\""))
  242. (startup @app-name (prompt #ask-assign)
  243.                    (help (cat #ask-assign-help #assigntext))
  244.          (command #assigntext))
  245. (makeassign #totassign #totpath)
  246.  
  247. (complete 100)
  248. ; und weg...
  249. (set @default-dest #totpath)
  250.  
  251. (P_CleanUp)
  252.  
  253. (exit #goodbye)
  254.